<% Response.Expires = 0 set objRs2=server.createobject("ADODB.recordset") ObjRs2.cachesize=5 ObjRs2.pagesize=10 nome=request.querystring("nome") ID=request.querystring("ID") tipocliente=request.querystring("tipocliente") cod_cliente=request.querystring("cod_cliente") 'Enviar o codigo do cliente final e selecionar todos para o projeto if cod_cliente = "" then strQuery3 = "SELECT * FROM ttipo_clientefinal WHERE nome='"&tipocliente&"'" Set ObjRs3 = objConn.Execute(strQuery3) cod_cliente= ObjRs3.fields("codigo") else cod_cliente=request.querystring("cod_cliente") strQuery3 = "SELECT * FROM ttipo_clientefinal WHERE codigo="&cod_cliente Set ObjRs3 = objConn.Execute(strQuery3) tipocliente=ObjRs3.fields("nome") end if strQuery2 = "SELECT * FROM tprojetos WHERE manutencao='Sim' and visualizacao='Externamente' AND codempresa='6' AND tipoclientefinal='"&tipocliente&"' order by anocontrato Desc, diacontrato Desc, mescontrato, codigo Desc" ObjRs2.open strQuery2,objconn,1 pagina=request("qualpagina") if pagina="" then pagina=1 end if tamanhopagina=request("pagesize") if tamanhopagina=" " then tamanhopagina=10 end if if ObjRs2.EOF = True then on error resume next end if contador=ObjRs2.recordcount maxpaginas=cint(ObjRs2.pagecount) maxregistros=cint(ObjRs2.PageSize) ObjRs2.absolutepage=pagina registros=0 ramo=request.querystring("ramo") set objRs=server.createobject("ADODB.recordset") 'strQuery = "SELECT * FROM ttipo_clientefinal Order by nome" strQuery = "SELECT distinct tipoclientefinal FROM tprojetos WHERE manutencao='Sim' and visualizacao='Externamente' AND codempresa='6' Order by tipoclientefinal" ObjRs.open strQuery,objconn,1 %> Emac - Especialista em Manutenção
 
Emac
 
Saiba mais detalhes sobre alguns contratos de manutençã da EMAC, clicando em um dos seguimentos ou projetos abaixo.  <%response.Write(cont)%>
<% set objRs_cont=server.createobject("ADODB.recordset") strQuery_cont = "SELECT * FROM tprojetos WHERE (codempresa = '6') AND (visualizacao = 'EXTERNAMENTE')" ObjRs_cont.open strQuery_cont,objconn,1 DO until objRS_cont.EOF total=total+1 objRS_cont.MoveNext loop if total <= 0 then total=0 end if %> Total de <%=total%> projetos cadastrados no site.
<%if ID="1" then%> AQUECIMENTO SOLAR <%end if%> <%if ID="2" then%> AR CONDICIONADO <%end if%> <%if ID="3" then%> FILTRO ELETROSTÁTICO <%end if%> <%if ID="4" then%> MANUTENÇÃO <%end if%> <%if ID="5" then%> AUTOMAÇÃO <%end if%> PROJETOS: <%=tipocliente%>
<%while not ObjRs.eof%> <% ObjRs.movenext wend%>
&ID=<%=ID%>" class="preto"> <%=objRS.fields("tipoclientefinal").value%>
Todos os projetos

<%if objRS2.EOF = True then%>

ATENÇÃO:
Nem todas as obras foram cadastradas em nosso web sistema, breve estaremos atualizando o nosso banco de dados.

Enquanto isso, se você quiser saber mais informações sobre projetos executados, favor entrar em contato..

Desculpem-nos por eventuais transtornos causados,

Atenciosamente
Equipe TumaNet

<%end if%> <%DO until objRS2.EOF or registros>=maxregistros%> <%if ObjRs2.fields("imagens").value="Sim" then%>
  " class="preto">Cliente Final: <%=objRS2.fields("clientefinal").value%>
  " class="preto">Local: <%=objRS2.fields("localizacao").value%>
  " class="preto">Ano do Contrato: <%=objRS2.fields("anocontrato").value%>
<%end if if ObjRs2.fields("imagens").value="Não" then%>
" class="preto">Cliente Final: <%=objRS2.fields("clientefinal").value%>
  " class="preto">Local: <%=objRS2.fields("localizacao").value%>
  " class="preto">Ano do Contrato: <%=objRS2.fields("anocontrato").value%>
<%end if%> <% objRS2.MoveNext registros=registros+1 Loop response.Write "PÁGINAS:" & tipocliente for cont=1 to maxpaginas ref="" & cont & "" else ref=ref & " class=texto>" & cont & "" end if response.write ref & " " next%>


Entre em contato com a emac, teremos prazer
em atendê-lo: admcentral@emac.com.br
Atualizada em: 10/2007.
Sugestões: gapd@emac.com.br
 
 

 

Emac - Especialista em Manutenção Visite o site empresastuma.com.br